`lowerBound` <-
function(obj) {
    obj$lowerBound[length(obj$lowerBound)];
}

